home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed45.d64 / exercise 7 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  145 lines
  1. 100 PRINT"[147][159]";:POKE53272,23:POKE53280,0:POKE53281,0:RESTORE
  2. 101 PRINT"[156]            [215][200][195] [197]NTERPRISES":GOSUB591
  3. 102 PRINT"[159]                                        [146]";
  4. 103 PRINT"                                        [146]";
  5. 104 PRINT"                                        [146]";
  6. 105 PRINT"        [205]C [196]ONALD [215]ORKBOOK [211]ERIES       [146]";
  7. 106 PRINT"[159]                                        [146]";
  8. 107 PRINT"         [214]OCABULARY [197]XERCISE #7         [146]";
  9. 108 PRINT"[159]                                        [146]";
  10. 109 PRINT"                PREFIXES                [146]";
  11. 110 PRINT"[159]                                        [146]":GOSUB591:GOSUB560
  12. 111 PRINT"          [201]NSTRUCTIONS?  [217]/[206]
  13. 112 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[175]R$[179][177]"(null)"[175]R$[179][177]"(null)"[167]112
  14. 113 [139]R$[178]"Y"[167][141]400
  15. 114 [139]R$[178]"(null)"[167][141]400
  16. 120 [153]"OPENLOAD (null)HAT IS YOUR NAME?   "
  17. 122 [133] N$
  18. 124 [139]N$[178]""[167]122
  19. 126 [141]590
  20. 190 [153]"OPENLOAD ATNND AWAY WE GO, "N$".":[141]591:[141]500:[141]590
  21. 192 [137]1000
  22. 235 [141]591:[141]560
  23. 236 [153]"CONT (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAITLIST"
  24. 237 [161]U$:[139]U$[179][177][199](32)[167]237
  25. 238 [142]
  26. 240 [141]592:[141]560
  27. 242 [153]"CONT      >>> (null)(null)ATNLENVALCLOSEPEEKATN(null) <<<
  28. 244 GETU$:IFU$<>CHR$(32)THEN244
  29. 246 PRINT"[145]                                       "
  30. 248 RETURN
  31. 299 :
  32. 400 PRINT"[147]              [201]NSTRUCTIONS            [159]
  33. 402 [153]" (null)HIS IS A WORD GAME FOR GRADE 3, 4,     AND 5 PUPILS."
  34. 404 [153]" ATN SYSROOTOPEN IS A WORD TO WHICH PREFIXESOPEN
  35. 406 PRINT" AND SUFFIXES[159] MAY BE ADDED.
  36. 408 [153]" ATN SYSPREFIXOPEN IS A SYLLABLE PUT AT THE
  37. 410 PRINT" BEGINNING OF A WORD WHICH CHANGES
  38. 412 [153]" THE MEANING OF THE WORD.":[141]240
  39. 414 [153]"LOADOPEN LEFT$ERE ARE SOME COMMONLY USED SYSPREFIXESOPEN    AND THEIR MEANINGS."
  40. 416 [153]"           SYSMISOPEN - WRONG, BAD
  41. 417 PRINT"           [158] UN[159] - NOT
  42. 418 [153]"           SYS REOPEN - AGAIN OR BACK
  43. 419 PRINT"           [158]PRE[159] - BEFORE
  44. 420 [153]"           SYSSUBOPEN - UNDER
  45. 421 PRINT"      [158]COM  CON[159] - WITH, TOGETHER
  46. 422 [153]"           SYS ENOPEN - IN, INTO, MAKE
  47. 423 PRINT"           [158] IM[159] - NOT "
  48. 436 GOSUB235:RETURN
  49. 499 :
  50. 500 REM <YES>
  51. 505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  52. 510 POKE54296,15:POKE54277,42:POKE54278,250
  53. 515 POKE54276,23:POKE54273,23:POKE54272,191
  54. 520 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO200:NEXT
  55. 525 POKE54296,0:RETURN
  56. 530 REM <NO>
  57. 535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  58. 540 POKE54296,15:POKE54277,18:POKE54278,242
  59. 545 POKE54276,33:POKE54273,4:POKE54272,48
  60. 550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  61. 555 POKE54296,0:RETURN
  62. 560 REM <BLIP>
  63. 565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  64. 570 POKE54296,7:POKE54277,42:POKE54278,250
  65. 575 POKE54276,23:POKE54273,23:POKE54272,191
  66. 580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  67. 585 POKE54296,0:RETURN
  68. 590 FORTM=1TO500:NEXT:RETURN
  69. 591 FORTM=1TO1000:NEXT:RETURN
  70. 592 FORTM=1TO2000:NEXT:RETURN
  71. 593 FORTM=1TO3000:NEXT:RETURN
  72. 999 :
  73. 1000 PRINT"[147]";:RESTORE:POKE53281,0:POKE53280,0
  74. 1005 P=1:Z=0:H=0:C=20
  75. 1010 FORJ=1TOC
  76. 1015 READ A$,B$,C$,D$
  77. 1020 PRINT"[152][147] [197]XERCISE 7 [156]"TAB(14)""N$TAB(30)"[155][211]TEP:"P
  78. 1025 PRINT" [200]ERE ARE SOME PREFIXES."
  79. 1030 PRINT"[153]    MIS  /  UN  /  RE  /  PRE
  80. 1035 [153]"SYS       ***** ";A$;" ****"
  81. 1040 [153]"LIST (null)ETYPE THIS WORD WITH A CORRECT         SYSPREFIXLIST FROM ABOVE."
  82. 1045 [141]560:[133]"SYS >>>  ";SK$
  83. 1050 [139]SK$[178]B$ [167][141]1080:[137]1090
  84. 1055 [139]SK$[178]C$ [167][141]1080:[137]1090
  85. 1060 [139]SK$[178]D$ [167][141]1080:[137]1090
  86. 1065 [139]Z[178]2[167][137]1070
  87. 1066 [153]"DEF (null)OUR ANSWER IS NOT CORRECT. (null)RY AGAIN.":H[178]H[170]1:[141]530:[141]591
  88. 1067 [153]"ON                                        ":Z[178]Z[170]1
  89. 1068 [153]"ONONON                                        ONONON"
  90. 1069 [137]1045
  91. 1070 [153]"LIST LEFT$OW ABOUT THIS.....SYS"B$"   ":[141]560:[141]560
  92. 1072 [141]592:[141]240:[137]1090
  93. 1080 [153]""[166]24)"SYSLEN(null)(null)(null)VALLEN(null)!":[141]500:[141]591
  94. 1082 [153]"ON                 ":[142]
  95. 1090 [141]591:[153]"LOAD":[141]591:P[178]P[170]1:Z[178]0:[130]J
  96. 1099 :
  97. 1999 :
  98. 2000 [153]"LOAD        VALXERCISE 7  (null)LEN(null)(null)VAL PEEK(null)ATN(null)STR$     ":[141]591:[141]560
  99. 2005 [153]"PRINT(null)OU HAVE ANSWERED"C"QUESTIONS":[141]591
  100. 2007 [139]H[178]1[167][153]"DEF(null)OU HAVE MADE ONLYONE BLOOPER.":[141]530:[141]591:[137]2020
  101. 2010 [139]H[177]1[167][153]"DEF(null)OU HAVE MADE"H"BLOOPERS":[141]530:[141]591
  102. 2015 [139]H[178]0[167][153]"SYS                VAL(null)LENVAL(null)(null)VAL(null)(null)!              WAIT":[137]2030
  103. 2020 [139]H[178]1[167][153]"OPEN              CHR$OOD (null)ORK!                WAIT":[137]2030
  104. 2025 [153]"DEF       (null)RY HARDER!  STR$O IT AGAIN!        WAIT"
  105. 2030 [153]"":[141]235
  106. 2050 [153]"PRINTLOAD(null)OU HAVE A CHOICE:
  107. 2052 PRINT"[208]RESS  [210] [146] TO REPEAT [197]XERCISE 7
  108. 2054 [153]"(null)RESS  CHR$ WAIT TO GO TO VALXERCISE 8
  109. 2056 PRINT"[208]RESS  [205] [146] TO GO TO THE DISK MENU
  110. 2058 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[175]R$[179][177]"G"[175]R$[179][177]"(null)"[175]R$[179][177]"CHR$"[175]R$[179][177]"(null)"[167]2058
  111. 2060 [139]R$[178]"R"[167][156]:[140]:[137]100
  112. 2061 [139]R$[178]"(null)"[167][156]:[140]:[137]100
  113. 2062 [139]R$[178]"G"[167][156]:[140]:[137]2080
  114. 2063 [139]R$[178]"CHR$"[167][156]:[140]:[137]2080
  115. 2064 [153]"LOADSYS (null)OADING THE STR$ISK (null)ENU
  116. 2066 LOAD"MENU",8
  117. 2068 RUN
  118. 2070 END
  119. 2080 PRINT"[147][158] [204]OADING [197]XERCISE 8
  120. 2082 [147]"EXERCISE 8",8
  121. 2084 [138]
  122. 2086 [128]
  123. 2100 [143] THE GUTS OF THE UNIT
  124. 2110 [131]"COOKED","UNCOOKED","PRECOOKED","**"
  125. 2115 [131]"BUILD","REBUILD","**","**"
  126. 2120 [131]"VIEW","PREVIEW","REVIEW","**"
  127. 2125 [131]"ABLE","UNABLE","**","**"
  128. 2130 [131]"COUNT","RECOUNT","MISCOUNT","**"
  129. 2135 [131]"GAIN","REGAIN","**","**"
  130. 2140 [131]"PAID","UNPAID","PREPAID","REPAID"
  131. 2145 [131]"LEAD","MISLEAD","**","**"
  132. 2150 [131]"MATURE","PREMATURE","**","**"
  133. 2155 [131]"BEHAVE","MISBEHAVE","**","**"
  134. 2160 [131]"COOPERATIVE","UNCOOPERATIVE","**","**"
  135. 2165 [131]"PAY","PREPAY","REPAY","REPAY"
  136. 2170 [131]"TRUST","MISTRUST","**","**"
  137. 2175 [131]"EDUCATED","UNEDUCATED","**","**"
  138. 2180 [131]"SCRIBE","PRESCRIBE","**","**"
  139. 2185 [131]"TRUST","MISTRUST","**","**"
  140. 2190 [131]"JUDGE","MISJUDGE","**","**"
  141. 2195 [131]"PAID","UNPAID","PREPAID","REPAID"
  142. 2200 [131]"SEARCH","RESEARCH","**","**"
  143. 2205 [131]"GAIN","REGAIN","**","**"
  144. 3000 [143] WH CUMBERLAND 93 03 11
  145.